home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / encore.lha / encore / tsystem / float.c < prev    next >
C/C++ Source or Header  |  1988-03-08  |  473b  |  37 lines
  1. fladd(z,x,y)
  2. double *x,*y,*z;
  3. {   *z = *x + *y;}
  4.  
  5. flsubtract(z,x,y)
  6. double *x,*y,*z;
  7. {   *z = *x - *y;}
  8.  
  9. flmultiply(z,x,y)
  10. double *x,*y,*z;
  11. {   *z = *x * *y;}
  12.  
  13. fldivide(z,x,y)
  14. double *x,*y,*z;
  15. {   *z = *x / *y;}
  16.  
  17. flless(x,y)
  18. double x,y;
  19. { if (x < y) return 1; return 0;}
  20.  
  21. flequal(x,y)
  22. double x,y;
  23. { if (x == y) return 1; return 0;}
  24.  
  25. flgreater(x,y)
  26. double x,y;
  27. { if (x > y) return 1; return 0;}
  28.  
  29. fix(x)
  30. double x;
  31. { return x;}
  32.  
  33. double flote(x)
  34. long x;
  35. { return x;}         
  36.  
  37.